﻿Imports System
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
''' <summary>
''' 关心点中储存某一给定的污染物浓度
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class DisCareBackCon
    Implements ICloneable

    ''' <summary>
    ''' 关心点对应的ID
    ''' </summary>
    ''' <remarks></remarks>
    Private m_ID As String
    ''' <summary>
    ''' 关心点的名称
    ''' </summary>
    ''' <remarks></remarks>
    Private m_Name As String
    ''' <summary>
    ''' 用数组分别储存1h 2h 3h 4h 6h 8h 12h 24h month period的浓度
    ''' </summary>
    ''' <remarks></remarks>
    Private m_Con As Double = -99


    ''' <summary>
    ''' 关心点对应的ID
    ''' </summary>
    ''' <remarks></remarks>
    Property ID() As String
        Get
            Return Me.m_ID
        End Get
        Set(ByVal value As String)
            Me.m_ID = value
        End Set
    End Property
    ''' <summary>
    ''' 关心点的名称
    ''' </summary>
    ''' <remarks></remarks>
    Property Name() As String
        Get
            Return Me.m_Name
        End Get
        Set(ByVal value As String)
            Me.m_Name = value
        End Set
    End Property
    ''' <summary>
    ''' 浓度
    ''' </summary>
    ''' <remarks></remarks>
    Property Con() As Double
        Get
            Return Me.m_Con
        End Get
        Set(ByVal value As Double)
            Me.m_Con = value
        End Set
    End Property


    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New DisCareBackCon
        obj.m_Con = Me.m_Con
        obj.m_ID = Me.m_ID
        obj.m_Name = Me.m_Name
        Return obj
    End Function
End Class
